<script>on mouseUpput the value of the clickLine into theFolderif theFolder is not empty thenPut theFolder & ":" after cd field volNameset cursor to watchput getFileNames(cd field volName,true,"MooV") into cd field foldersput getFileNames(cd field volName,false,"MooV") into cd field theListSetFolderTitle theFolderend ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>1</left>
<top>128</top>
<right>224</right>
<bottom>144</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>volName</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>60</left>
<top>18</top>
<right>213</right>
<bottom>33</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Actions</name>
<script>on mouseDownif the short name of me is "<root level>" then exit mouseDownput cd field volName into fooput the number of chars in foo - 1 into nrepeat until char n of foo = ":"subtract 1 from nend repeatput BuildPopUp (char 1 to n of foo)¬into theMenuItemsget PopUpMenu (theMenuItems, 0, left of me+1, bottom of me)If it > 0 thenput item it of theMenuItems into vNameput 1 into irepeat the number of items in theMenuItems - it + 1repeat while char i of cd field volName ≠ ":"add 1 to iend repeatadd 1 to iend repeatsubtract 1 from iput char 1 to i of cd field volName into cd field volNameset cursor to watchput getFileNames(cd field volName,true,"MooV") into cd field foldersput getFileNames(cd field volName,false,"MooV") into cd field theListif it = the number of items in theMenuItems thenput "<root level>" into vNameend ifSetFolderTitle vNameend ifend mouseDown</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>60</left>
<top>1</top>
<right>213</right>
<bottom>16</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>QuickTime‚Ñ¢ Beta</name>
<script>on mouseDownput GetVolNames () into theMenuItemsrepeat with i = 1 to the number of items in theMenuItemsif char 1 of item i of theMenuItems = "*" thendelete char 1 of item i of theMenuItemsend ifend repeatget PopUpMenu (theMenuItems, 0, left of me+1, bottom of me)If it > 0 thenput item it of theMenuItems & ":" into cd field volNameset cursor to watchput getFileNames(item it of theMenuItems & ":",true,"MooV") into cd field foldersput getFileNames(item it of theMenuItems & ":",false,"MooV") ¬into cd field theListset name of me to item it of theMenuItemsSetFolderTitle "<root level>"end ifset scroll of cd field folders to 0set scroll of cd field theList to 0end mouseDown</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>5</left>
<top>141</top>
<right>219</right>
<bottom>322</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>theList</name>
<script>on mouseUpPickAFile--put the clicklineend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>1</top>
<right>58</right>
<bottom>16</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Volume:</name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>125</top>
<right>215</right>
<bottom>140</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>foldertitle</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>18</top>
<right>57</right>
<bottom>33</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Folder:</name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>139</left>
<top>334</top>
<right>219</right>
<bottom>349</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Controller</name>
<script>on mouseUpif there is a window "movie window" thenif the hilite of me thensend showController to window "movie window"elsesend hideController to window "movie window"end ifend ifend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>6</id>
<text>Cherry Juice</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>QuickTime‚Ñ¢ Beta:Movies:Video:Play from CD-ROM:Annotation:Actions:</text>
<script>on PlayMovie movieNameif last char of movieName is ":" then exit PlayMovieif there is a window "Movie Window" thenset replaceMovie of window "Movie Window" to movieNameget the resultif "Error" is in it thenput the resultanswer "Couldn't Play That Movie"exit PlayMovieend ifset loop of window "movie Window" to trueelseput item 3 of the rect of this card + 10 & "," & 10 into movieLocQTMovie OpenMovie, windoid, movieName, movieLoc, loop, nocontrollerget the resultif "Error" is in it thenput the resultanswer "Couldn't Play That Movie"exit PlayMovieend ifset windowName of window ExtractFileName(movieName) to "Movie Window"if the hilite of btn "controller" thensend showController to window "movie window"end ifend ifend PlayMoviefunction buildPopUp fullPathNameput fullPathName into pathrepeat with i = 1 to the number of chars in pathif char i of path = ":" thenput "," into char i of pathelse if char i of path = quote thendelete char i of pathsubtract 1 from iend ifend repeatput the number of items in path into numItemsif last char of path ≠ "," thensubtract 1 from numItemsdelete last item of pathelsedelete last char of pathend ifrepeat with i = 1 to numItemsput item numItems-i+1 of path into item i of invertedPathend repeatreturn invertedPathend buildPopUpon pickAFileput the value of the clickLine into Movieif Movie is not empty thenput word 2 of the clickLine into myLineSelectLine myLineplayMovie cd field volName & Movieend ifend pickAFileon SetFolderTitle newNameset the name of cd btn id 8 to newNameput the number of lines in cd field theList into numLinesif numLines = 0 thenput "No Movies" into melse if numLines = 1 thenput "The Only Movie" into melseput numLines && "Movies" into mend ifput m & " in: " & newName into cd field folderTitleend SetFolderTitleOn SelectLine nput the number of chars in line 1 to n of cd field thelist + 1¬into pos2put pos2 - the number of chars in line n of cd field thelist ¬into pos1select char pos1 to pos2 of cd field thelistend SelectLine</script>
